(* (FIXSW T))


(DEFINEQ
 (INIT
  (LAMBDA (N M NPATS IPATS) 
    ((LAMBDA (IPATS) 
       (PROG (P) 
	     (SETQ P IPATS)
	LOOP (COND ((NULL (CDR P)) (RETURN (RPLACD P IPATS))))
	     (SETQ P (CDR P))
	     (GO LOOP))
       ((LAMBDA (G0028 G0029 G0030 G0031) 
	  (PROG (N I NAME A) 
		(PROGN (SETQ N G0028)
		       (SETQ I G0029)
		       (SETQ NAME G0030)
		       (SETQ A G0031))
	   LOOP	(COND ((IEQP N 0) (RETURN A)))
		(SETQ A (CONS NAME A))
		(FOR I
		     FROM
		     I
		     TO
		     1
		     BY
		     -1
		     DO
		     (PUTPROP NAME (GENSYM) NIL)
		     FINALLY
		     (RETURN NIL))
		(PUTPROP
		 NAME
		 (QUOTE PATTERN)
		 ((LAMBDA (G0032 G0033 G0034) 
		    (PROG (I IPATS A) 
			  (PROGN (SETQ I G0032)
				 (SETQ IPATS G0033)
				 (SETQ A G0034))
		     LOOP (COND ((IEQP I 0) (RETURN A)))
			  (SETQ A (CONS (CAR IPATS) A))
			  ((LAMBDA (G0032 G0033) 
			     (PROGN (SETQ I G0032)
				    (SETQ IPATS G0033)))
			   (IDIFFERENCE I 1)
			   (CDR IPATS))
			  (GO LOOP)))
		  NPATS
		  IPATS
		  NIL))
		(FOR J
		     FROM
		     (IDIFFERENCE M I)
		     TO
		     1
		     BY
		     -1
		     DO
		     (PUTPROP NAME (GENSYM) NIL)
		     FINALLY
		     (RETURN NIL))
		((LAMBDA (G0028 G0029 G0030) 
		   (PROGN (SETQ N G0028) (SETQ I G0029) (SETQ NAME
							      G0030)))
		 (IDIFFERENCE N 1)
		 (COND ((IEQP I 0) M) (T (IDIFFERENCE I 1)))
		 (GENSYM))
		(GO LOOP)))
	N
	M
	(GENSYM)
	NIL))
     (SUBST NIL NIL IPATS)))))